program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Lists in 'C:\Prog\DZ\hw-rutkovskiy-ilya-to-lessons\libs\Lists.pas';

var
  head, head2: PElement;
  Input: TextFile;
  t: integer;

begin
  AssignFile( input, 'input.txt' );
  Reset( input );
  Lists.Init( head );
  while not EOF( input ) do
    readln( input, head^. )
  CloseFile( input );
end.
 